home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_sa.inc < prev    next >
Text File  |  1998-07-29  |  3KB  |  227 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    òKÄEïZüiö≥é╤ô╣ï∩üj
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. joh_sa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$004d,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d2
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     rts
  46. @@:
  47.     addi.w    #$404d,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d2
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     addi.w    #16,d2
  61.     addq.w    #1,d7
  62.     move.w    d1,(a6)+
  63.     move.w    d2,(a6)+
  64.     move.w    d7,(a6)+
  65.     move.w    #$0003,(a6)+
  66.  
  67.     addi.w    #16,d2
  68.     addq.w    #1,d7
  69.     move.w    d1,(a6)+
  70.     move.w    d2,(a6)+
  71.     move.w    d7,(a6)+
  72.     move.w    #$0003,(a6)+
  73.  
  74.     rts
  75. *---------------------------------------
  76. joh_sa_a:
  77.     move.w    d7,d3
  78.     move.w    C_X(a1),d1
  79.     move.w    C_Y(a1),d2
  80.     tst.w    C_LR_F(a1)
  81.     bne    @f
  82.  
  83.     subq.w    #8,d1
  84.     subi.w    #32,d2
  85.     addi.w    #$0051,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     addi.w    #16,d1
  92.     addq.w    #1,d7
  93.     move.w    d1,(a6)+
  94.     move.w    d2,(a6)+
  95.     move.w    d7,(a6)+
  96.     move.w    #$0003,(a6)+
  97.  
  98.     subi.w    #16,d1
  99.     addi.w    #16,d2
  100.     addq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     addi.w    #16,d2
  107.     addq.w    #1,d7
  108.     move.w    d1,(a6)+
  109.     move.w    d2,(a6)+
  110.     move.w    d7,(a6)+
  111.     move.w    #$0003,(a6)+
  112.  
  113.     addi.w    #16,d2
  114.     addq.w    #1,d7
  115.     move.w    d1,(a6)+
  116.     move.w    d2,(a6)+
  117.     move.w    d7,(a6)+
  118.     move.w    #$0003,(a6)+
  119.  
  120.     rts
  121.  
  122. @@:
  123.     subi.w    #24,d1
  124.     subi.w    #32,d2
  125.     addi.w    #$4052,d7
  126.     move.w    d1,(a6)+
  127.     move.w    d2,(a6)+
  128.     move.w    d7,(a6)+
  129.     move.w    #$0003,(a6)+
  130.  
  131.     addi.w    #16,d1
  132.     subq.w    #1,d7
  133.     move.w    d1,(a6)+
  134.     move.w    d2,(a6)+
  135.     move.w    d7,(a6)+
  136.     move.w    #$0003,(a6)+
  137.  
  138.     addi.w    #16,d2
  139.     addq.w    #2,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.     addi.w    #16,d2
  146.     addq.w    #1,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     addi.w    #16,d2
  153.     addq.w    #1,d7
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     rts
  160. *---------------------------------------
  161. joh_sa_t:
  162.     move.w    C_X(a1),d1
  163.     move.w    C_Y(a1),d2
  164.     subq.w    #8,d1
  165.     subi.w    #32,d2
  166.     tst.w    C_LR_F(a1)
  167.     bne    @f
  168.  
  169.     addi.w    #$0056,d7
  170.     move.w    d1,(a6)+
  171.     move.w    d2,(a6)+
  172.     move.w    d7,(a6)+
  173.     move.w    #$0003,(a6)+
  174.  
  175.     addi.w    #16,d2
  176.     addq.w    #1,d7
  177.     move.w    d1,(a6)+
  178.     move.w    d2,(a6)+
  179.     move.w    d7,(a6)+
  180.     move.w    #$0003,(a6)+
  181.  
  182.     addi.w    #16,d2
  183.     addq.w    #1,d7
  184.     move.w    d1,(a6)+
  185.     move.w    d2,(a6)+
  186.     move.w    d7,(a6)+
  187.     move.w    #$0003,(a6)+
  188.  
  189.     addi.w    #16,d2
  190.     addq.w    #1,d7
  191.     move.w    d1,(a6)+
  192.     move.w    d2,(a6)+
  193.     move.w    d7,(a6)+
  194.     move.w    #$0003,(a6)+
  195.  
  196.     rts
  197. @@:
  198.     addi.w    #$4056,d7
  199.     move.w    d1,(a6)+
  200.     move.w    d2,(a6)+
  201.     move.w    d7,(a6)+
  202.     move.w    #$0003,(a6)+
  203.  
  204.     addi.w    #16,d2
  205.     addq.w    #1,d7
  206.     move.w    d1,(a6)+
  207.     move.w    d2,(a6)+
  208.     move.w    d7,(a6)+
  209.     move.w    #$0003,(a6)+
  210.  
  211.     addi.w    #16,d2
  212.     addq.w    #1,d7
  213.     move.w    d1,(a6)+
  214.     move.w    d2,(a6)+
  215.     move.w    d7,(a6)+
  216.     move.w    #$0003,(a6)+
  217.  
  218.     addi.w    #16,d2
  219.     addq.w    #1,d7
  220.     move.w    d1,(a6)+
  221.     move.w    d2,(a6)+
  222.     move.w    d7,(a6)+
  223.     move.w    #$0003,(a6)+
  224.  
  225.     rts
  226. *---------------------------------------
  227.